home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)tl.d64 / example5 (.txt) < prev    next >
Commodore BASIC  |  2008-11-26  |  270b  |  13 lines
  1. 10 G:CLEAR;FULL;GOTO -30,40;TURNTO 120
  2. 20 G:PEN PURPLE;DRAW 60
  3. 30 G:TURNTO 240
  4. 40 G:DRAW 2
  5. 50 G:FILL 58
  6. 60 G:PEN ORANGE;GOTO 20,-20;TURNTO 90
  7. 70 G:DRAW 50
  8. 80 G:GOTO -20,-20
  9. 90 G:FILL 50
  10. 100 G:PEN BLUE;GOTO 55,-90;TURNTO 0
  11. 110 G:18[DRAW 5; TURN 10]
  12. 120 G:18[FILL 5; TURN 10]
  13.